home *** CD-ROM | disk | FTP | other *** search
/ Pulp 1 / Pulp_01_19xx_Lost_Brain_de.d64 / pulp boot (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  10KB  |  204 lines
  1. 9 poke808,225:poke788,52
  2. 10 poke53280,0:poke53281,0:print"[147]    [194]itte warten. [208]ulp wird geladen..."
  3. 11 ifa=0thena=1:load"9",8,1
  4. 12 ifp=0thenp=1:load"1",8,1
  5. 14 print"[147]     [204]ost [194]rain proudly presents..."
  6. 15 poke53281,0:poke53280,0:sys828,2:fort=0to6000:nextt:poke53281,6:
  7. 100 printchr$(142)"[147][154]                                        ";
  8. 101 print"     [154]   [154]         [146]    [154] [160][160][146][154]             [154]   ";
  9. 102 print"[154]        [154]   [160]     [146][154]   [154]  [160][160][146][154]            [154]    ";
  10. 103 print"[154]    [154]       [160][146][154]   [160] [146][154]    [154] [160][160][146][154]       [160][154]     [154]   ";
  11. 104 print"[154]   [154]  [154]      [160][146][154]     [146][154]     [160][160][146][154]             [154]   ";
  12. 105 print"[154]    [154]   [154]    [160]     [146][154]    [154] [160][160][146][154]         [154]       ";
  13. 106 print"[154]     [154]  [154]    [160]     [146][154]    [154] [160][160][146][154]         [154]       ";
  14. 107 print"[154]   [154]     [154]   [160][146][154]         [154] [160][160][146][154]        [154]        ";
  15. 108 print"[154]      [154]     [160][146][154]   [160] [146][154]  [160][160][146] [160][160][146][154] [160][160]   [160][160][146][154]        ";
  16. 109 print"[154]   [154]    [154]    [160][146][154]   [160] [146][154]  [160][160][146][154] [160][160][146][154] [160][160]   [160][160][146][154]        ";
  17. 110 print" [154]     [154]      [146][154]   [160][160][146]  [160][160][146][154]   [146][154] [160][160][146]   [160][160][146][154]        ";
  18. 111 print"[154]   [154]     [154]    [146][154]         [146][154]   [146][154] [160][160]     [146][154]        ";
  19. 112 print"[154]    [154]  [154]      [146][154]         [146][154]   [146][154] [160][160]     [146][154]        ";
  20. 113 print"[154]      [154]     [154]          [154]    [160][160][146][154]             ";
  21. 114 print"[154]    [154]    [154]                [146][154] [160][160][146][154]     [146][154]        ";
  22. 115 print"[154]         [154]                  [146][154]             ";
  23. 116 print"[154]        [154]                    [154]            ";
  24. 117 print"                                   [160][160][154]   ";:fort=0to5000:nextt
  25. 118 print"   [153]   [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][154]    ";
  26. 119 print"      [153][202]>das diskmag fuer basic user[203][154]    ";
  27. 120 print"                                        ";
  28. 122 print"                                        ";:fort=0to5000:nextt
  29. 123 print"         [158]       ausgabe [158]#1              ";
  30. 124 print"                                       
  31. 125 [151]646,1:a$[178]"andandandandandandandandandand":a2$[178]"usrusrusrusrusrusrusrusrusrusr":[141]150:[161]a$:[139]a$[178]" "[167] 200
  32. 126 a$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":a2$[178]"valvalvalvalvalvalvalvalvalval":[141]150:[161]a$:[139]a$[178]" "[167] 200
  33. 127 a$[178]"ascascascascascascascascascasc":a2$[178]"str$str$str$str$str$str$str$str$str$str$":[141]150:[161]a$:[139]a$[178]" "[167] 200
  34. 128 a$[178]"lenlenlenlenlenlenlenlenlenlen":a2$[178]"lenlenlenlenlenlenlenlenlenlen":[141]150:[161]a$:[139]a$[178]" "[167] 200
  35. 129 a$[178]"str$str$str$str$str$str$str$str$str$str$":a2$[178]"ascascascascascascascascascasc":[141]150:[161]a$:[139]a$[178]" "[167] 200
  36. 130 a$[178]"valvalvalvalvalvalvalvalvalval":a2$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[141]150:[161]a$:[139]a$[178]" "[167] 200
  37. 131 a$[178]"usrusrusrusrusrusrusrusrusrusr":a2$[178]"andandandandandandandandandand":[141]150:[161]a$:[139]a$[178]" "[167] 200
  38. 132 a$[178]"valvalvalvalvalvalvalvalvalval":a2$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[141]150:[161]a$:[139]a$[178]" "[167] 200
  39. 133 a$[178]"str$str$str$str$str$str$str$str$str$str$":a2$[178]"ascascascascascascascascascasc":[141]150:[161]a$:[139]a$[178]" "[167] 200
  40. 134 a$[178]"lenlenlenlenlenlenlenlenlenlen":a2$[178]"lenlenlenlenlenlenlenlenlenlen":[141]150:[161]a$:[139]a$[178]" "[167] 200
  41. 135 a$[178]"ascascascascascascascascascasc":a2$[178]"str$str$str$str$str$str$str$str$str$str$":[141]150:[161]a$:[139]a$[178]" "[167] 200
  42. 136 a$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":a2$[178]"valvalvalvalvalvalvalvalvalval":[141]150:[161]a$:[139]a$[178]" "[167] 200
  43. 137 [137] 125
  44. 150 [151]211,16:[151]214,21:[158]58640:[153]a$:[151]211,16:[151]214,23:[158]58640:
  45. 151 [153]a2$::::::::::::::::::::::::::::::::::::::::::[142]
  46. 180 a$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":a2$[178]"valvalvalvalvalvalvalvalvalvalvalvalvalvalval":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  47. 181 a$[178]"ascascascascascascascascascascascascascascasc":a2$[178]"str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  48. 182 a$[178]"lenlenlenlenlenlenlenlenlenlenlenlenlenlenlen":a2$[178]"lenlenlenlenlenlenlenlenlenlenlenlenlenlenlen":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  49. 183 a$[178]"str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$":a2$[178]"ascascascascascascascascascascascascascascasc":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  50. 184 a$[178]"valvalvalvalvalvalvalvalvalvalvalvalvalvalval":a2$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  51. 185 a$[178]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusr":a2$[178]"andandandandandandandandandandandandandandand":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  52. 186 a$[178]"valvalvalvalvalvalvalvalvalvalvalvalvalvalval":a2$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  53. 187 a$[178]"str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$":a2$[178]"ascascascascascascascascascascascascascascasc":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  54. 188 a$[178]"lenlenlenlenlenlenlenlenlenlenlenlenlenlenlen":a2$[178]"lenlenlenlenlenlenlenlenlenlenlenlenlenlenlen":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  55. 189 a$[178]"ascascascascascascascascascascascascascascasc":a2$[178]"str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  56. 190 a$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":a2$[178]"valvalvalvalvalvalvalvalvalvalvalvalvalvalval":[141]195:[161]a$:[139]a$[179][177]""[167] 211
  57. 191 [137] 180
  58. 195 [151]646,9:[151]211,12:[151]214,(2[170](2[172]m)):[158]58640:[153]a$
  59. 196 [151]211,12:[151]214,(4[170](2[172]m)):[158]58640:[153]a2$:[142]
  60. 200 [141]9000:[141]9100:m[178]1:[158]828,0
  61. 210 [137]180:
  62. 211 [139]a$[178]""[175]m[179][177]1[167]a$[178]"                         ":a2$[178]a$:[141]195:m[178]m[171]1
  63. 220 [139]a$[178]""[175]m[179][177]7[167]a$[178]"                         ":a2$[178]a$:[141]195:m[178]m[170]1
  64. 225 [139]a$[178][199](13)[167]250
  65. 230 [137] 180
  66. 250 [141]9000:[145]m[137]300,400,500,600,700,800,900
  67. 300 [143] editorial
  68. 301 [153]"loadcont               poke           cont              ";
  69. 302 [153]"    sys        poke sys editorial waitpoke cont              poke ";
  70. 303 [153]"cont                                        ";
  71. 304 [153]"                                        ";
  72. 305 [153]"                                        ";
  73. 306 [153]"   redaktion..............lost brain    ";
  74. 307 [153]"cont                                        ";
  75. 308 [153]"   programmierung.........lost braincont    ";
  76. 309 [153]"                                        ";
  77. 310 [153]"   idee...................lost braincont    ";
  78. 311 [153]"cont                                        ";
  79. 312 [153]"   spreader...............lost braincont    ";
  80. 313 [153]"                                        ";
  81. 314 [153]"   grafiker...............lost braincont    ";
  82. 315 [153]"                                        ";
  83. 316 [153]"   tune von........demo soundmonitorcont    ";
  84. 317 [153]"cont                                        ";
  85. 318 [153]"                                        ";
  86. 319 [153]"                                        ";
  87. 320 [153]"  dieses mag ist nicht verkaeuflich !!  ";
  88. 321 [153]"                                        ";
  89. 322 [153]"cont                                        ";
  90. 323 [153]"cont  thanx to the coder of the sound mon. cont ";
  91. 324 [153]"                                        ";
  92. 325 [151]198,0:[146]198,1:[151]198,0:[137]200
  93. 400 [153]"load":[159]1,8,2,"2,s,r":x[178]0
  94. 401 x[178]x[170]1:[132]1,a$:[139]a$[178]"_"[167]450
  95. 402 [151]211,1:[151]214,x:[158]58640:[153]a$:[139]x[178]23[167]410
  96. 403 [137]401
  97. 410 [151]198,0:[146]198,1:[151]198,0:[141]9000:x[178]0:[137]401
  98. 450 [160]1:[151]198,0:[146]198,1:[151]198,0:[141]9000:[137]200
  99. 500 [141]9000:[159]1,8,2,"3,s,r":c[178]0
  100. 501 c[178]c[170]1:[132]1,a$:[139]a$[178]"x"[167]510
  101. 502 z$(c)[178]a$:[137]501
  102. 510 [160]1:c[178]c[171]1:[153]"             sys texte..texte ":[151]646,1
  103. 512 [129]i[178]1[164]c:[151]211,15:[151]214,(2[170]i[172]3):[158]58640:[153]z$(i):[130]:m[178]1
  104. 513 a$[178]"verifyandandandandandandandandandand":a2$[178]"usrusrusrusrusrusrusrusrusrusr":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  105. 514 a$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":a2$[178]"valvalvalvalvalvalvalvalvalval":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  106. 515 a$[178]"ascascascascascascascascascasc":a2$[178]"str$str$str$str$str$str$str$str$str$str$":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  107. 516 a$[178]"lenlenlenlenlenlenlenlenlenlen":a2$[178]"lenlenlenlenlenlenlenlenlenlen":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  108. 517 a$[178]"str$str$str$str$str$str$str$str$str$str$":a2$[178]"ascascascascascascascascascasc":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  109. 518 a$[178]"valvalvalvalvalvalvalvalvalval":a2$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  110. 519 a$[178]"usrusrusrusrusrusrusrusrusrusr":a2$[178]"andandandandandandandandandand":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  111. 520 a$[178]"valvalvalvalvalvalvalvalvalval":a2$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  112. 521 a$[178]"str$str$str$str$str$str$str$str$str$str$":a2$[178]"ascascascascascascascascascasc":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  113. 522 a$[178]"lenlenlenlenlenlenlenlenlenlen":a2$[178]"lenlenlenlenlenlenlenlenlenlen":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  114. 523 a$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":a2$[178]"valvalvalvalvalvalvalvalvalval":[141]560:[161]a$:[139]a$[179][177]""[167] 550
  115. 524 [137] 513
  116. 550 [139]a$[178]""[175] m[179]c[167]a$[178]"               ":a2$[178]a$:[141]560:m[178]m[170]1:[137]513
  117. 551 [139]a$[178]""[175]m[179][177]1[167]a$[178]"               ":a2$[178]a$:[141]560:m[178]m[171]1:[137]513
  118. 552 [139] a$[178][199](13)[167]570
  119. 553 [139] a$[178]"_"[167]200
  120. 554 [137]513
  121. 560 [151]211,15:[151]214,(1[170]m[172]3):[158]58640:[153]a$:[151]211,15:[151]214,(3[170]m[172]3):
  122. 565 [158]58640:[153]a2$:[142]
  123. 570 a$[178]z$(m):[153]"load":[159]1,8,2,[170]a$[170]",s,r":x[178]0
  124. 571 x[178]x[170]1:[132]1,a$:[139]a$[178]"_"[167]575
  125. 572 [151]211,1:[151]214,x:[158]58640:[153]a$:[139]x[178]23[167]574
  126. 573 [137]571
  127. 574 [151]198,0:[146]198,1:[151]198,0:[141]9000:x[178]0:[137]571
  128. 575 [160]1:[151]198,0:[146]198,1:[151]198,0:[141]9000:[137]200
  129. 600 [153]"loadsys         we have a new identity ! wait":[153]""
  130. 601 [153]"print name :":[153]" birthday :":[153]" c-64 :":[153]" job :"
  131. 602 [153]" am c-64 seit :":[153]" fav.game :":[153]" fav.movie :"
  132. 603 [153]" fav.song :":[153]" last word :"
  133. 605 [159]1,8,2,"4,s,r":[132]1,n$,b$,t$,j$,z$,s$,m$,l$,c$
  134. 606 [160]1
  135. 607 [151]214,06:[151]211,08:[158]58640:[153]""n$
  136. 608 [151]214,08:[151]211,12:[158]58640:[153]""b$
  137. 609 [151]214,10:[151]211,08:[158]58640:[153]""t$
  138. 610 [151]214,12:[151]211,07:[158]58640:[153]""j$
  139. 611 [151]214,14:[151]211,16:[158]58640:[153]""z$
  140. 612 [151]214,16:[151]211,12:[158]58640:[153]""s$
  141. 613 [151]214,18:[151]211,13:[158]58640:[153]""m$
  142. 614 [151]214,20:[151]211,12:[158]58640:[153]""l$
  143. 615 [151]214,22:[151]211,13:[158]58640:[153]""c$:[151]198,0:[146]198,1:[151]198,0
  144. 616 [137]200
  145. 699 [128]
  146. 700 [153]"load":[159]1,8,2,"5,s,r":x[178]0
  147. 701 x[178]x[170]1:[132]1,a$:[139]a$[178]"_"[167]750
  148. 702 [151]211,1:[151]214,x:[158]58640:[153]a$:[139]x[178]23[167]710
  149. 703 [137]701
  150. 710 [151]198,0:[146]198,1:[151]198,0:[141]9000:x[178]0:[137]701
  151. 750 [160]1:[151]198,0:[146]198,1:[151]198,0:[141]9000:[137]200
  152. 800 [153]"load":[159]1,8,2,"6,s,r":x[178]0
  153. 801 x[178]x[170]1:[132]1,a$:[139]a$[178]"_"[167]850
  154. 802 [151]211,1:[151]214,x:[158]58640:[153]a$:[139]x[178]23[167]810
  155. 803 [137]801
  156. 810 [151]198,0:[146]198,1:[151]198,0:[141]9000:x[178]0:[137]801
  157. 850 [160]1:[151]198,0:[146]198,1:[151]198,0:[141]9000:[137]200
  158. 900 [153]"load             sys contax-addies "
  159. 910 [153]" printname: ":[153]" bgl. name: ":[153]" c-64:"
  160. 920 [153]:[153]" strasse:":[153]" plz:":[153]" telefon:"
  161. 921 [153]"cont crsright-weiter      return=hauptmenue"
  162. 922 [159]1,8,2,"7,s,r"
  163. 923 [132]1,c$,n$,t$,s$,p$,d$:[151]646,1:[151]198,0
  164. 924 [151]211,7:[151]214,7:[158]58640:[153]c$:[151]211,12:[151]214,9:[158]58640:[153]n$
  165. 925 [151]211,7:[151]214,11:[158]58640:[153]t$:[151]211,10:[151]214,13:[158]58640:[153]s$
  166. 926 [151]211,6:[151]214,15:[158]58640:[153]p$:[151]211,10:[151]214,17:[158]58640:[153]d$
  167. 927 [161]a$:[139]a$[178][199](13)[167][160]1:[137]200
  168. 928 [139]a$[178]""[167]930
  169. 929 [137]927
  170. 930 [153]"load             sys contax-addies "
  171. 931 [153]" printname: ":[153]" bgl. name: ":[153]" c-64:"
  172. 932 [153]:[153]" strasse:":[153]" plz:":[153]" telefon:"
  173. 933 [153]"cont  crsright=weiter    return=hauptmenue":[137]923
  174. 9000 [129]x[178]0[164]19:[151]211,(19[171]x):[151]214,0:[158]58640
  175. 9001 [153]" cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd "
  176. 9002 [151]211,(20[170]x):[151]214,0:[158]58640
  177. 9003 [153]" cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd "
  178. 9004 [130]:[142]
  179. 9100 [153]"loadcont                                        ";
  180. 9101 [153]" print(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$cont ";
  181. 9102 [153]" print-CCCCCCCCCsys  what's inside  waitprintCCCCCCCCCC<cont ";
  182. 9103 [153]" printBcont                                    printBcont ";
  183. 9104 [153]" printBcont                                    printBcont ";
  184. 9105 [153]" printBcont         ----editorial----cont          printBcont ";
  185. 9106 [153]" printBcont                                    printBcont ";
  186. 9107 [153]" printBcont         ------basic------cont          printBcont ";
  187. 9108 [153]" printBcont                                    printBcont ";
  188. 9109 [153]" printBcont         ------texte------     cont     printBcont ";
  189. 9110 [153]" printBcont                                    printBcont ";
  190. 9111 [153]" printBcont         ----new comer----cont          printBcont ";
  191. 9112 [153]" printBcont                                    printBcont ";
  192. 9113 [153]" printBcont         ----mediathek---- cont         printBcont ";
  193. 9114 [153]" printBcont                                    printBcont ";
  194. 9115 [153]" printpeekcont         ----programme----cont          printpeekcont ";
  195. 9116 [153]" printBcont                                    printBcont ";
  196. 9117 [153]" printBcont         --contax addies--cont          printBcont ";
  197. 9118 [153]" printBcont                                    printBcont ";
  198. 9119 [153]" printBcont                            cont        printBcont ";
  199. 9120 [153]" printBcont                                    printBcont ";
  200. 9121 [153]" printBcont                                    printBcont ";
  201. 9122 [153]" printBcont                                    printBcont ";
  202. 9123 [153]" printJCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCKcont ";
  203. 9124 [142]
  204.